home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / basic / blitzandpieces / getallwins.asc < prev    next >
Encoding:
Text File  |  1999-05-14  |  619 b   |  24 lines
  1. ; list windows on all screens :
  2.  
  3. WbToScreen 0                          ; get as screen 0
  4. *scr.Screen = Peek.l(Addr Screen(0))  ; get pointer to screen
  5.  
  6. winlist                               ; loop label
  7.  
  8. NPrint Peek$(*scr\Title)              ; print screen title
  9.  
  10. *win.Window = *scr\FirstWindow        ; get first window
  11.                                       ; go through 'em all :
  12. While *win
  13.     Print "    Window : ",Peek$(*win\Title)
  14.     If *win\Flags & #WFLG_WBENCHWINDOW Then NPrint "Workbench window" Else NPrint ""
  15.     *win = *win\NextWindow
  16. Wend
  17.  
  18. *scr=*scr\NextScreen
  19. If *scr Then Goto winlist
  20.  
  21. ClickMouse
  22. End
  23.  
  24.